home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 5
/
Aminet 5 - March 1995.iso
/
Aminet
/
util
/
rexx
/
xdmd1.lha
/
Save.xdme
< prev
next >
Wrap
Text File
|
1994-10-24
|
663b
|
27 lines
/* Save.xdme */
/* Copyright © 1994 Fergus Duniho */
options results
address 'XDME.1'
'rxresult $method'
method = result
compressor = "LIBS:compressors/xpk" || method || ".library"
if method = "NONE" || ~exists(compressor) then do
saveold
end
else do
'writeto t:temp'
'rxresult $password'
password = result
if password = 0 then
xcom = 'execute (xpack t:temp method' method || ')'
else
xcom = 'execute (xpack t:temp method' method 'password "' || password || '")'
xcom
'rxresult $filename'
fullname = '"' || result || '"'
xcom = "execute (copy t:temp" fullname || ")"
xcom
call delete("t:temp")
end